www.gusucode.com > 落叶冰点万能企业网站内容管理系统 V9.1 > 落叶冰点万能企业网站内容管理系统 V9.1\code\admin\admincp\D_admin_zhuanti.asp

    <%


'**************************************************************
' 新动软网站管理系统
' 官方网站: http://www.aspcpu.com
' 系统作者: 阮丁远(网名：天下程序)
' Copyright 新动软网站管理系统 版权所有
'**************************************************************


%>





<LINK href="../css.css" type=text/css rel=stylesheet>
<%

dir_set="../../"


%>


<!--#include file=../../inc/conn.asp-->
<!--#include file=../../inc/Functionb.asp-->

<!--#include file=../../inc/ajaxLIB.asp-->

<!--#include file=../inc/checkadmin2.asp-->

<!--#include file=../../inc/functionFiless.asp-->



<!--#include file=inc_lanmu_bl.asp-->

<%
AJAXshowLoader()


%>



<style type="text/css">
<!--
.STYLE4 {
	color: #FFFFFF;
	font-weight: bold;
}
-->
</style>



<%
biao="[ND_prod_Special]"


sys_content_type=trim(request("sys_content_type"))




set rs44g=server.CreateObject("adodb.recordset")
rs44g.open "select * from ND_channel where sys_content_type_name='"&sys_content_type&"' and lanmu_type='"&lanmu_taba&"'",conn,1,1
if find_dataw(lanmu_taba,rs44g("id"),5)<>"1" and qx_if_max=0 then
response.redirect "../D_suodinguser.asp"
end if





%>





<br />
<div  id="l_list" style="filter:blendTrans(duration=1);  width:774px; z-index:-1; border: 1px dashed #999999;left: 3px; top: 120px; height: 121px;width:730px">




	<%



if sys_content_type="" then 

%>
<script language="javascript">
alert("url参数sys_content_type不能为空");


</script>

<%

response.end
end if

%>




<script language="javascript">

function delact(id){

if (confirm("确认删除?")==1){


self.location="D_del_zhuanti.asp?id="+id+"&sys_content_type=<%=sys_content_type%>";
}

}










</script>
<br />



<table width="100%" border="1" cellspacing="0" cellpadding="0">
  <tr>
  
  <td width="8%" height="27" align="center" class="adminth"><span class="STYLE4">id</span></td>
    
	  <td width="7%" height="27" align="center" class="adminth"><span class="STYLE4">顺序号</span></td>
    <td width="48%" align="center" class="adminth"><span class="STYLE4">专题名称</span></td>
    <td width="20%" align="center" class="adminth"><span class="STYLE4">操作</span></td>
 
 
    <td width="17%" align="center" class="adminth"><span class="STYLE4">是否外部频道</span></td>
    
	
  </tr>
  
	<%





	CurrentPage=replacebadchar(request("page"))
	if CurrentPage="" then
	CurrentPage=1
	else if not IsNumeric(CurrentPage) then
	CurrentPage=1
	else if int(CurrentPage)<=0 then
	CurrentPage=1
	else
 	CurrentPage=replaceBadchar(request("page"))
 	end if
	end if
	end if
	
	maxperpage=15



 aryxx     =split(Request.ServerVariables("SCRIPT_NAME"),"/")   
  fileNamexx   =   aryxx(ubound(aryxx))

strFileName=fileNamexx&"?classid="&request("classid")&"&isshenhed="&request("isshenhed")&"&iszhuanti="&request("iszhuanti")&"&keyword="&trim(request("keyword"))&"&sys_content_type="&sys_content_type&"&qrr="&request("qrr")




set Rs=server.CreateObject("adodb.recordset")
sql="select * from "&biao&" where sys_content_type='"&sys_content_type&"'  order by clng(orders) asc"
Rs.open sql,conn,1,1
        

			  
			  
			  
			  if not Rs.eof then
	Rs.pagesize=MaxPerpage
	totalnumber=Rs.recordcount
	if totalnumber mod maxperpage=0 then
   MaxPage= totalnumber \ MaxPerpage
  	else
   MaxPage= totalnumber \ MaxPerpage+1
  	end if
	if int(CurrentPage)>int(MaxPage) then
	CurrentPage=MaxPage
	else
	CurrentPage=CurrentPage
	end if
	Rs.absolutepage=CurrentPage
		for ni=1 to MaxPerpage
		if Rs.eof then exit for
		
		
		

		
			  %>
			  
			  
			  
			  
			  
			  
			  
  
  <tr bgcolor="#EDF8FE">
  
   <td width="8%" height="27" align="center"><%=rs("id")%></td>
   <td width="7%" height="27" align="center"><%=rs("orders")%></td>
   
    <td width="48%" align="center"><%=left(rs("Specialname"),44)%></td>
    <td width="20%" align="center">
	<a href="D_edit_zhuanti.asp?id=<%=rs("id")%>&sys_content_type=<%=sys_content_type%>">编辑</a>&nbsp;
	<a href=# onclick="delact('<%=rs("id")%>');">删除</a>	</td>
    <td width="17%" align="center">
	<%if rs("is_link_class")="1" then%>
	<font color="#FF0000">外部连接</font>
	<%else%>
	
	内部连接
	
	<%end if%>	
	
	
	
	</td>
   
   
  </tr>
  
  
	  	  
			  <%
			 Rs.movenext
			  next
			  else
			  %>
			  <tr><td colspan="7"  class=maintext align="center"><font color="#FF0000"><strong>没有内容……</strong></font></td></tr>
			  <%end if
			  
			  
			
			  Rs.close
			  set Rs=nothing
			  %>
			        
			
			
					
					
					
					
					
					<tr>
        <td  colspan="7" align="center" height="27" bgcolor="#FFFFFF"><%call showpage(strFileName,totalnumber,MaxPerPage,true,true,"个",CurrentPage)%></td>
      </tr>
	 
	 
</table>

  </form>
  

</div>






<script language=javascript>
AJAXfade(1,'l_list');
AJAXfade(1,'l_lists');
</script>


<%
AJAXcloseLoader()
%>